****
* Figures in descriptive section
***

*set scheme plotplain
 
grstyle init
 grstyle set plain, horizontal grid dotted
 
 


*** load relevant data

	clear 
		
		use "$Replicationdirectory/_Work/TEMP/_data_bonds"
		
		
 
	 
				 
*** FIGURE 1a	 ( BOND PRICES ) 	and 1b (yield) 
	 keep if tin(1jan1930,15aug1939)
 
 				
		* Price	
					twoway (line P_london_GBP_GBP P_paris_GBP_GBP date    , lpattern(solid solid  ) lcolor( blue red  ) , tline(14jun1934, lp(solid) lc(black) ) tline(28jun1938, lp(dash) lc(blue) ) tline(5jul1938, lp(dash) lc(red) )	///
				bgcolor(white)  graphregion(color(white))  bgcolor(white)  bgcolor(white) tlabel(01jan1930 "1930" 01jan1931 "1931" 01jan1932 "1932" 01jan1933 "1933" 01jan1934 "1934" 01jan1935 "1935" 01jan1936 "1936" 01jan1937 "1937" 01jan1938 "1938" 01jan1939 "1939" ,angle(45) labsize(mediumsmall) )   ytitle("{stMono:Bond price in GBP}")  title("{stMono:Prices} ",size(mediumsmal) color(black))  saving("$Replicationdirectory/_Work/TEMP/PRICES_RAW", replace) xtitle("") ) 			///
				(line   P_amsterdam_GBP_GBP  date     if tin(1jan1930,14jun1935) , lpattern(solid) lcolor(    dkorange  )     ) ///
				(line   P_zurich_GBP_GBP date     if tin(1jan1930,17apr1935) , lpattern(solid    )   lcolor(    green  ) )	///
				(line   P_amsterdam_GBP_GBP  date     if tin(14jun1935,1jul1940) , lpattern(shortdash_dot    ) lcolor(    dkorange  ) tline(1jul1935, lp(dash) lc(dkorange) ) ) ///
				(line   P_zurich_GBP_GBP date     if tin(17apr1935,17apr1940) , lpattern(shortdash_dot    )   lcolor(    green  )  , tline(17apr1935, lp(dash) lc(green) )  ) , legend (order( 1 "London" 2 "Paris" 3 "Amsterdam" 4 "Zurich") c(4)  size(small) region(lcolor(white) ))
				
				
				graph export "$Replicationdirectory/_Work/Output/Appendices/Figures/FigureA1_BondPrices.pdf", replace
			
			
 			 
			
 
 		* Yield to maturity
			 
				twoway (line ytm_london ytm_paris date    , lpattern(solid solid  ) lcolor( blue red  ) , tline(14jun1934, lp(solid) lc(black) ) tline(28jun1938, lp(dash) lc(blue) ) tline(5jul1938, lp(dash) lc(red) )	///
				bgcolor(white)  graphregion(color(white))  bgcolor(white)  bgcolor(white) tlabel(01jan1930 "1930" 01jan1931 "1931" 01jan1932 "1932" 01jan1933 "1933" 01jan1934 "1934" 01jan1935 "1935" 01jan1936 "1936" 01jan1937 "1937" 01jan1938 "1938" 01jan1939 "1939" ,angle(45) labsize(mediumsmall) )  legend(off)  ytitle("{stMono:Yield-to-maturity in %}")  title("{stMono:Yield-to-maturity} ",size(mediumsmal) color(black)) saving("$Replicationdirectory/_Work/TEMP/YIELD_RAW", replace) xtitle("") ) 			///
				(line   ytm_amsterdam  date     if tin(1jan1931,14jun1935) , lpattern(solid) lcolor(    dkorange  )     ) ///
				(line   ytm_zurich date     if tin(1jan1930,17apr1935) , lpattern(solid    )   lcolor(    green  ) )	///
				(line   ytm_amsterdam  date     if tin(14jun1935,1jul1940) , lpattern(shortdash_dot    ) lcolor(    dkorange  ) tline(1jul1935, lp(dash) lc(dkorange) ) ) ///
				(line   ytm_zurich date     if tin(17apr1935,17apr1940) , lpattern(shortdash_dot    )   lcolor(    green  )  , tline(17apr1935, lp(dash) lc(green) )  ) 
				
				
 
			graph export "$Replicationdirectory/_Work/TEMP/Figure1_ytm.pdf", replace
			 
			 
 				 
				grc1leg2   "$Replicationdirectory/_Work/TEMP/PRICES_RAW.gph" "$Replicationdirectory/_Work/TEMP/YIELD_RAW.gph"      ,  						 	legendfrom("$Replicationdirectory/_Work/TEMP/PRICES_RAW.gph")   graphregion(color(white) )   saving("$Replicationdirectory/_Work/TEMP/GRAPH_07", replace) xsize(20.0) ysize(10)
				
				
 
				graph export "$Replicationdirectory/_Work/Output/Figures/Figure1_Prices_yields.pdf", replace
				
			  
  
 				
				 
			
